home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / misc / pdflib / bindings / perl / pdflib.pm < prev   
Text File  |  1999-01-01  |  16KB  |  609 lines
  1. # This file was automatically generated by SWIG
  2. package pdflib;
  3. require Exporter;
  4. require DynaLoader;
  5. @ISA = qw(Exporter DynaLoader);
  6. package pdflibc;
  7. bootstrap pdflib;
  8. var_pdflib_init();
  9. @EXPORT = qw( );
  10.  
  11. # ---------- BASE METHODS -------------
  12.  
  13. package pdflib;
  14.  
  15. sub TIEHASH {
  16.     my ($classname,$obj) = @_;
  17.     return bless $obj, $classname;
  18. }
  19.  
  20. sub CLEAR { }
  21.  
  22. sub this {
  23.     my $ptr = shift;
  24.     return tied(%$ptr);
  25. }
  26.  
  27.  
  28. # ------- FUNCTION WRAPPERS --------
  29.  
  30. package pdflib;
  31.  
  32. sub PDF_get_info {
  33.     my @args = @_;
  34.     my $result = pdflibc::PDF_get_info(@args);
  35.     return undef if (!defined($result));
  36.     my %resulthash;
  37.     tie %resulthash, "PDF_info", $result;
  38.     return bless \%resulthash, "PDF_info";
  39. }
  40. sub PDF_open {
  41.     my @args = @_;
  42.     $args[1] = tied(%{$args[1]});
  43.     my $result = pdflibc::PDF_open(@args);
  44.     return $result;
  45. }
  46. *PDF_close = *pdflibc::PDF_close;
  47. *PDF_begin_page = *pdflibc::PDF_begin_page;
  48. *PDF_end_page = *pdflibc::PDF_end_page;
  49. *PDF_set_transition = *pdflibc::PDF_set_transition;
  50. *PDF_set_duration = *pdflibc::PDF_set_duration;
  51. *PDF_malloc = *pdflibc::PDF_malloc;
  52. *PDF_free = *pdflibc::PDF_free;
  53. *PDF_show = *pdflibc::PDF_show;
  54. *PDF_show_xy = *pdflibc::PDF_show_xy;
  55. *PDF_set_font = *pdflibc::PDF_set_font;
  56. *PDF_set_leading = *pdflibc::PDF_set_leading;
  57. *PDF_set_text_rise = *pdflibc::PDF_set_text_rise;
  58. *PDF_set_horiz_scaling = *pdflibc::PDF_set_horiz_scaling;
  59. *PDF_set_text_rendering = *pdflibc::PDF_set_text_rendering;
  60. sub PDF_set_text_matrix {
  61.     my @args = @_;
  62.     $args[1] = tied(%{$args[1]});
  63.     my $result = pdflibc::PDF_set_text_matrix(@args);
  64.     return $result;
  65. }
  66. *PDF_set_text_pos = *pdflibc::PDF_set_text_pos;
  67. *PDF_set_char_spacing = *pdflibc::PDF_set_char_spacing;
  68. *PDF_set_word_spacing = *pdflibc::PDF_set_word_spacing;
  69. *PDF_continue_text = *pdflibc::PDF_continue_text;
  70. *PDF_save = *pdflibc::PDF_save;
  71. *PDF_restore = *pdflibc::PDF_restore;
  72. *PDF_translate = *pdflibc::PDF_translate;
  73. *PDF_scale = *pdflibc::PDF_scale;
  74. *PDF_rotate = *pdflibc::PDF_rotate;
  75. *PDF_setdash = *pdflibc::PDF_setdash;
  76. *PDF_setpolydash = *pdflibc::PDF_setpolydash;
  77. *PDF_setflat = *pdflibc::PDF_setflat;
  78. *PDF_setlinejoin = *pdflibc::PDF_setlinejoin;
  79. *PDF_setlinecap = *pdflibc::PDF_setlinecap;
  80. *PDF_setmiterlimit = *pdflibc::PDF_setmiterlimit;
  81. *PDF_setlinewidth = *pdflibc::PDF_setlinewidth;
  82. *PDF_setgray_fill = *pdflibc::PDF_setgray_fill;
  83. *PDF_setgray_stroke = *pdflibc::PDF_setgray_stroke;
  84. *PDF_setgray = *pdflibc::PDF_setgray;
  85. *PDF_setrgbcolor_fill = *pdflibc::PDF_setrgbcolor_fill;
  86. *PDF_setrgbcolor_stroke = *pdflibc::PDF_setrgbcolor_stroke;
  87. *PDF_setrgbcolor = *pdflibc::PDF_setrgbcolor;
  88. *PDF_moveto = *pdflibc::PDF_moveto;
  89. *PDF_lineto = *pdflibc::PDF_lineto;
  90. *PDF_curveto = *pdflibc::PDF_curveto;
  91. *PDF_circle = *pdflibc::PDF_circle;
  92. *PDF_arc = *pdflibc::PDF_arc;
  93. *PDF_rect = *pdflibc::PDF_rect;
  94. *PDF_closepath = *pdflibc::PDF_closepath;
  95. *PDF_stroke = *pdflibc::PDF_stroke;
  96. *PDF_closepath_stroke = *pdflibc::PDF_closepath_stroke;
  97. *PDF_fill = *pdflibc::PDF_fill;
  98. *PDF_fill_stroke = *pdflibc::PDF_fill_stroke;
  99. *PDF_closepath_fill_stroke = *pdflibc::PDF_closepath_fill_stroke;
  100. *PDF_endpath = *pdflibc::PDF_endpath;
  101. *PDF_clip = *pdflibc::PDF_clip;
  102. sub PDF_place_image {
  103.     my @args = @_;
  104.     $args[1] = tied(%{$args[1]});
  105.     my $result = pdflibc::PDF_place_image(@args);
  106.     return $result;
  107. }
  108. sub PDF_place_inline_image {
  109.     my @args = @_;
  110.     $args[1] = tied(%{$args[1]});
  111.     my $result = pdflibc::PDF_place_inline_image(@args);
  112.     return $result;
  113. }
  114. sub PDF_put_image {
  115.     my @args = @_;
  116.     $args[1] = tied(%{$args[1]});
  117.     my $result = pdflibc::PDF_put_image(@args);
  118.     return $result;
  119. }
  120. sub PDF_execute_image {
  121.     my @args = @_;
  122.     $args[1] = tied(%{$args[1]});
  123.     my $result = pdflibc::PDF_execute_image(@args);
  124.     return $result;
  125. }
  126. sub PDF_close_image {
  127.     my @args = @_;
  128.     $args[1] = tied(%{$args[1]});
  129.     my $result = pdflibc::PDF_close_image(@args);
  130.     return $result;
  131. }
  132. sub PDF_open_JPEG {
  133.     my @args = @_;
  134.     my $result = pdflibc::PDF_open_JPEG(@args);
  135.     return undef if (!defined($result));
  136.     my %resulthash;
  137.     tie %resulthash, "PDF_image", $result;
  138.     return bless \%resulthash, "PDF_image";
  139. }
  140. sub PDF_close_JPEG {
  141.     my @args = @_;
  142.     $args[1] = tied(%{$args[1]});
  143.     my $result = pdflibc::PDF_close_JPEG(@args);
  144.     return $result;
  145. }
  146. sub PDF_open_TIFF {
  147.     my @args = @_;
  148.     my $result = pdflibc::PDF_open_TIFF(@args);
  149.     return undef if (!defined($result));
  150.     my %resulthash;
  151.     tie %resulthash, "PDF_image", $result;
  152.     return bless \%resulthash, "PDF_image";
  153. }
  154. sub PDF_close_TIFF {
  155.     my @args = @_;
  156.     $args[1] = tied(%{$args[1]});
  157.     my $result = pdflibc::PDF_close_TIFF(@args);
  158.     return $result;
  159. }
  160. sub PDF_open_GIF {
  161.     my @args = @_;
  162.     my $result = pdflibc::PDF_open_GIF(@args);
  163.     return undef if (!defined($result));
  164.     my %resulthash;
  165.     tie %resulthash, "PDF_image", $result;
  166.     return bless \%resulthash, "PDF_image";
  167. }
  168. sub PDF_close_GIF {
  169.     my @args = @_;
  170.     $args[1] = tied(%{$args[1]});
  171.     my $result = pdflibc::PDF_close_GIF(@args);
  172.     return $result;
  173. }
  174. *PDF_data_source_from_buf = *pdflibc::PDF_data_source_from_buf;
  175. *PDF_stringwidth = *pdflibc::PDF_stringwidth;
  176. *PDF_add_outline = *pdflibc::PDF_add_outline;
  177. *fopen = *pdflibc::fopen;
  178. *fclose = *pdflibc::fclose;
  179.  
  180. ############# Class : PDF_pagesize ##############
  181.  
  182. package PDF_pagesize;
  183. @ISA = qw( pdflib );
  184. %OWNER = ();
  185. %BLESSEDMEMBERS = (
  186. );
  187.  
  188. %ITERATORS = ();
  189. sub DISOWN {
  190.     my $self = shift;
  191.     my $ptr = tied(%$self);
  192.     delete $OWNER{$ptr};
  193.     };
  194.  
  195. sub ACQUIRE {
  196.     my $self = shift;
  197.     my $ptr = tied(%$self);
  198.     $OWNER{$ptr} = 1;
  199.     };
  200.  
  201. sub FETCH {
  202.     my ($self,$field) = @_;
  203.     my $member_func = "pdflibc::PDF_pagesize_${field}_get";
  204.     my $val = &$member_func($self);
  205.     if (exists $BLESSEDMEMBERS{$field}) {
  206.         return undef if (!defined($val));
  207.         my %retval;
  208.         tie %retval,$BLESSEDMEMBERS{$field},$val;
  209.         return bless \%retval, $BLESSEDMEMBERS{$field};
  210.     }
  211.     return $val;
  212. }
  213.  
  214. sub STORE {
  215.     my ($self,$field,$newval) = @_;
  216.     my $member_func = "pdflibc::PDF_pagesize_${field}_set";
  217.     if (exists $BLESSEDMEMBERS{$field}) {
  218.         &$member_func($self,tied(%{$newval}));
  219.     } else {
  220.         &$member_func($self,$newval);
  221.     }
  222. }
  223.  
  224. sub FIRSTKEY {
  225.     my $self = shift;
  226.     $ITERATORS{$self} = ['width', 'height', ];
  227.     my $first = shift @{$ITERATORS{$self}};
  228.     return $first;
  229. }
  230.  
  231. sub NEXTKEY {
  232.     my $self = shift;
  233.     $nelem = scalar @{$ITERATORS{$self}};
  234.     if ($nelem > 0) {
  235.         my $member = shift @{$ITERATORS{$self}};
  236.         return $member;
  237.     } else {
  238.         $ITERATORS{$self} = ['width', 'height', ];
  239.         return ();
  240.     }
  241. }
  242.  
  243.  
  244. ############# Class : PDF_info ##############
  245.  
  246. package PDF_info;
  247. @ISA = qw( pdflib );
  248. %OWNER = ();
  249. %BLESSEDMEMBERS = (
  250. );
  251.  
  252. %ITERATORS = ();
  253. *Producer = *pdflibc::PDF_info_Producer;
  254. sub DISOWN {
  255.     my $self = shift;
  256.     my $ptr = tied(%$self);
  257.     delete $OWNER{$ptr};
  258.     };
  259.  
  260. sub ACQUIRE {
  261.     my $self = shift;
  262.     my $ptr = tied(%$self);
  263.     $OWNER{$ptr} = 1;
  264.     };
  265.  
  266. sub FETCH {
  267.     my ($self,$field) = @_;
  268.     my $member_func = "pdflibc::PDF_info_${field}_get";
  269.     my $val = &$member_func($self);
  270.     if (exists $BLESSEDMEMBERS{$field}) {
  271.         return undef if (!defined($val));
  272.         my %retval;
  273.         tie %retval,$BLESSEDMEMBERS{$field},$val;
  274.         return bless \%retval, $BLESSEDMEMBERS{$field};
  275.     }
  276.     return $val;
  277. }
  278.  
  279. sub STORE {
  280.     my ($self,$field,$newval) = @_;
  281.     my $member_func = "pdflibc::PDF_info_${field}_set";
  282.     if (exists $BLESSEDMEMBERS{$field}) {
  283.         &$member_func($self,tied(%{$newval}));
  284.     } else {
  285.         &$member_func($self,$newval);
  286.     }
  287. }
  288.  
  289. sub FIRSTKEY {
  290.     my $self = shift;
  291.     $ITERATORS{$self} = ['binary_mode', 'required_compatibility', 'Keywords', 'Subject', 'ModDate', 'Title', 'CreationDate', 'Creator', 'Author', 'fontpath', ];
  292.     my $first = shift @{$ITERATORS{$self}};
  293.     return $first;
  294. }
  295.  
  296. sub NEXTKEY {
  297.     my $self = shift;
  298.     $nelem = scalar @{$ITERATORS{$self}};
  299.     if ($nelem > 0) {
  300.         my $member = shift @{$ITERATORS{$self}};
  301.         return $member;
  302.     } else {
  303.         $ITERATORS{$self} = ['binary_mode', 'required_compatibility', 'Keywords', 'Subject', 'ModDate', 'Title', 'CreationDate', 'Creator', 'Author', 'fontpath', ];
  304.         return ();
  305.     }
  306. }
  307.  
  308.  
  309. ############# Class : PDF_matrix ##############
  310.  
  311. package PDF_matrix;
  312. @ISA = qw( pdflib );
  313. %OWNER = ();
  314. %BLESSEDMEMBERS = (
  315. );
  316.  
  317. %ITERATORS = ();
  318. sub DISOWN {
  319.     my $self = shift;
  320.     my $ptr = tied(%$self);
  321.     delete $OWNER{$ptr};
  322.     };
  323.  
  324. sub ACQUIRE {
  325.     my $self = shift;
  326.     my $ptr = tied(%$self);
  327.     $OWNER{$ptr} = 1;
  328.     };
  329.  
  330. sub FETCH {
  331.     my ($self,$field) = @_;
  332.     my $member_func = "pdflibc::PDF_matrix_${field}_get";
  333.     my $val = &$member_func($self);
  334.     if (exists $BLESSEDMEMBERS{$field}) {
  335.         return undef if (!defined($val));
  336.         my %retval;
  337.         tie %retval,$BLESSEDMEMBERS{$field},$val;
  338.         return bless \%retval, $BLESSEDMEMBERS{$field};
  339.     }
  340.     return $val;
  341. }
  342.  
  343. sub STORE {
  344.     my ($self,$field,$newval) = @_;
  345.     my $member_func = "pdflibc::PDF_matrix_${field}_set";
  346.     if (exists $BLESSEDMEMBERS{$field}) {
  347.         &$member_func($self,tied(%{$newval}));
  348.     } else {
  349.         &$member_func($self,$newval);
  350.     }
  351. }
  352.  
  353. sub FIRSTKEY {
  354.     my $self = shift;
  355.     $ITERATORS{$self} = ['a', 'b', 'c', 'd', 'e', 'f', ];
  356.     my $first = shift @{$ITERATORS{$self}};
  357.     return $first;
  358. }
  359.  
  360. sub NEXTKEY {
  361.     my $self = shift;
  362.     $nelem = scalar @{$ITERATORS{$self}};
  363.     if ($nelem > 0) {
  364.         my $member = shift @{$ITERATORS{$self}};
  365.         return $member;
  366.     } else {
  367.         $ITERATORS{$self} = ['a', 'b', 'c', 'd', 'e', 'f', ];
  368.         return ();
  369.     }
  370. }
  371.  
  372.  
  373. ############# Class : PDF_data_source_s ##############
  374.  
  375. package PDF_data_source_s;
  376. @ISA = qw( pdflib );
  377. %OWNER = ();
  378. %BLESSEDMEMBERS = (
  379. );
  380.  
  381. %ITERATORS = ();
  382. sub DISOWN {
  383.     my $self = shift;
  384.     my $ptr = tied(%$self);
  385.     delete $OWNER{$ptr};
  386.     };
  387.  
  388. sub ACQUIRE {
  389.     my $self = shift;
  390.     my $ptr = tied(%$self);
  391.     $OWNER{$ptr} = 1;
  392.     };
  393.  
  394. sub FETCH {
  395.     my ($self,$field) = @_;
  396.     my $member_func = "pdflibc::PDF_data_source_s_${field}_get";
  397.     my $val = &$member_func($self);
  398.     if (exists $BLESSEDMEMBERS{$field}) {
  399.         return undef if (!defined($val));
  400.         my %retval;
  401.         tie %retval,$BLESSEDMEMBERS{$field},$val;
  402.         return bless \%retval, $BLESSEDMEMBERS{$field};
  403.     }
  404.     return $val;
  405. }
  406.  
  407. sub STORE {
  408.     my ($self,$field,$newval) = @_;
  409.     my $member_func = "pdflibc::PDF_data_source_s_${field}_set";
  410.     if (exists $BLESSEDMEMBERS{$field}) {
  411.         &$member_func($self,tied(%{$newval}));
  412.     } else {
  413.         &$member_func($self,$newval);
  414.     }
  415. }
  416.  
  417. sub FIRSTKEY {
  418.     my $self = shift;
  419.     $ITERATORS{$self} = ['next_byte', 'bytes_available', 'buffer_start', 'buffer_length', 'private_data', ];
  420.     my $first = shift @{$ITERATORS{$self}};
  421.     return $first;
  422. }
  423.  
  424. sub NEXTKEY {
  425.     my $self = shift;
  426.     $nelem = scalar @{$ITERATORS{$self}};
  427.     if ($nelem > 0) {
  428.         my $member = shift @{$ITERATORS{$self}};
  429.         return $member;
  430.     } else {
  431.         $ITERATORS{$self} = ['next_byte', 'bytes_available', 'buffer_start', 'buffer_length', 'private_data', ];
  432.         return ();
  433.     }
  434. }
  435.  
  436.  
  437. ############# Class : PDF_image ##############
  438.  
  439. package PDF_image;
  440. @ISA = qw( pdflib );
  441. %OWNER = ();
  442. %BLESSEDMEMBERS = (
  443. );
  444.  
  445. %ITERATORS = ();
  446. sub DISOWN {
  447.     my $self = shift;
  448.     my $ptr = tied(%$self);
  449.     delete $OWNER{$ptr};
  450.     };
  451.  
  452. sub ACQUIRE {
  453.     my $self = shift;
  454.     my $ptr = tied(%$self);
  455.     $OWNER{$ptr} = 1;
  456.     };
  457.  
  458. sub FETCH {
  459.     my ($self,$field) = @_;
  460.     my $member_func = "pdflibc::PDF_image_${field}_get";
  461.     my $val = &$member_func($self);
  462.     if (exists $BLESSEDMEMBERS{$field}) {
  463.         return undef if (!defined($val));
  464.         my %retval;
  465.         tie %retval,$BLESSEDMEMBERS{$field},$val;
  466.         return bless \%retval, $BLESSEDMEMBERS{$field};
  467.     }
  468.     return $val;
  469. }
  470.  
  471. sub STORE {
  472.     my ($self,$field,$newval) = @_;
  473.     my $member_func = "pdflibc::PDF_image_${field}_set";
  474.     if (exists $BLESSEDMEMBERS{$field}) {
  475.         &$member_func($self,tied(%{$newval}));
  476.     } else {
  477.         &$member_func($self,$newval);
  478.     }
  479. }
  480.  
  481. sub FIRSTKEY {
  482.     my $self = shift;
  483.     $ITERATORS{$self} = ['fp', 'filename', 'width', 'height', 'bpc', 'components', 'compression', 'colorspace', 'indexed', 'BitPixel', 'colormap', 'adobe', 'startpos', 'dpi', 'Background', 'transparent', 'delayTime', 'inputFlag', 'disposal', 'useGlobalColormap', 'bitPixel', 'interlace', 'imageno', 'no', 'src', ];
  484.     my $first = shift @{$ITERATORS{$self}};
  485.     return $first;
  486. }
  487.  
  488. sub NEXTKEY {
  489.     my $self = shift;
  490.     $nelem = scalar @{$ITERATORS{$self}};
  491.     if ($nelem > 0) {
  492.         my $member = shift @{$ITERATORS{$self}};
  493.         return $member;
  494.     } else {
  495.         $ITERATORS{$self} = ['fp', 'filename', 'width', 'height', 'bpc', 'components', 'compression', 'colorspace', 'indexed', 'BitPixel', 'colormap', 'adobe', 'startpos', 'dpi', 'Background', 'transparent', 'delayTime', 'inputFlag', 'disposal', 'useGlobalColormap', 'bitPixel', 'interlace', 'imageno', 'no', 'src', ];
  496.         return ();
  497.     }
  498. }
  499.  
  500.  
  501. # ------- VARIABLE STUBS --------
  502.  
  503. package pdflib;
  504.  
  505. *PDFLIB_VERSION = *pdflibc::PDFLIB_VERSION;
  506. *PDF_DEFAULT_FONT_PATH = *pdflibc::PDF_DEFAULT_FONT_PATH;
  507. *false = *pdflibc::false;
  508. *true = *pdflibc::true;
  509. *PDF_INFO = *pdflibc::PDF_INFO;
  510. *PDF_WARN = *pdflibc::PDF_WARN;
  511. *PDF_FATAL = *pdflibc::PDF_FATAL;
  512. *PDF_INTERNAL = *pdflibc::PDF_INTERNAL;
  513. *PDF1_0 = *pdflibc::PDF1_0;
  514. *PDF1_1 = *pdflibc::PDF1_1;
  515. *PDF1_2 = *pdflibc::PDF1_2;
  516. *builtin = *pdflibc::builtin;
  517. *pdfdoc = *pdflibc::pdfdoc;
  518. *macroman = *pdflibc::macroman;
  519. *macexpert = *pdflibc::macexpert;
  520. *winansi = *pdflibc::winansi;
  521. *encoding_count = *pdflibc::encoding_count;
  522. *none = *pdflibc::none;
  523. *lzw = *pdflibc::lzw;
  524. *runlength = *pdflibc::runlength;
  525. *ccitt = *pdflibc::ccitt;
  526. *dct = *pdflibc::dct;
  527. *flate = *pdflibc::flate;
  528. *compression_count = *pdflibc::compression_count;
  529. *trans_none = *pdflibc::trans_none;
  530. *trans_split = *pdflibc::trans_split;
  531. *trans_blinds = *pdflibc::trans_blinds;
  532. *trans_box = *pdflibc::trans_box;
  533. *trans_wipe = *pdflibc::trans_wipe;
  534. *trans_dissolve = *pdflibc::trans_dissolve;
  535. *trans_glitter = *pdflibc::trans_glitter;
  536. *trans_replace = *pdflibc::trans_replace;
  537. *transition_count = *pdflibc::transition_count;
  538. *DeviceGray = *pdflibc::DeviceGray;
  539. *DeviceRGB = *pdflibc::DeviceRGB;
  540. *DeviceCMYK = *pdflibc::DeviceCMYK;
  541. *CalGray = *pdflibc::CalGray;
  542. *CalRGB = *pdflibc::CalRGB;
  543. *Lab = *pdflibc::Lab;
  544. *Indexed = *pdflibc::Indexed;
  545. *Pattern = *pdflibc::Pattern;
  546. *Separation = *pdflibc::Separation;
  547. *colorspace_count = *pdflibc::colorspace_count;
  548.  
  549. my %__a0_hash;
  550. tie %__a0_hash,"PDF_pagesize", $pdflibc::a0;
  551. $a0= \%__a0_hash;
  552. bless $a0, PDF_pagesize;
  553.  
  554. my %__a1_hash;
  555. tie %__a1_hash,"PDF_pagesize", $pdflibc::a1;
  556. $a1= \%__a1_hash;
  557. bless $a1, PDF_pagesize;
  558.  
  559. my %__a2_hash;
  560. tie %__a2_hash,"PDF_pagesize", $pdflibc::a2;
  561. $a2= \%__a2_hash;
  562. bless $a2, PDF_pagesize;
  563.  
  564. my %__a3_hash;
  565. tie %__a3_hash,"PDF_pagesize", $pdflibc::a3;
  566. $a3= \%__a3_hash;
  567. bless $a3, PDF_pagesize;
  568.  
  569. my %__a4_hash;
  570. tie %__a4_hash,"PDF_pagesize", $pdflibc::a4;
  571. $a4= \%__a4_hash;
  572. bless $a4, PDF_pagesize;
  573.  
  574. my %__a5_hash;
  575. tie %__a5_hash,"PDF_pagesize", $pdflibc::a5;
  576. $a5= \%__a5_hash;
  577. bless $a5, PDF_pagesize;
  578.  
  579. my %__a6_hash;
  580. tie %__a6_hash,"PDF_pagesize", $pdflibc::a6;
  581. $a6= \%__a6_hash;
  582. bless $a6, PDF_pagesize;
  583.  
  584. my %__b5_hash;
  585. tie %__b5_hash,"PDF_pagesize", $pdflibc::b5;
  586. $b5= \%__b5_hash;
  587. bless $b5, PDF_pagesize;
  588.  
  589. my %__letter_hash;
  590. tie %__letter_hash,"PDF_pagesize", $pdflibc::letter;
  591. $letter= \%__letter_hash;
  592. bless $letter, PDF_pagesize;
  593.  
  594. my %__legal_hash;
  595. tie %__legal_hash,"PDF_pagesize", $pdflibc::legal;
  596. $legal= \%__legal_hash;
  597. bless $legal, PDF_pagesize;
  598.  
  599. my %__ledger_hash;
  600. tie %__ledger_hash,"PDF_pagesize", $pdflibc::ledger;
  601. $ledger= \%__ledger_hash;
  602. bless $ledger, PDF_pagesize;
  603.  
  604. my %__p11x17_hash;
  605. tie %__p11x17_hash,"PDF_pagesize", $pdflibc::p11x17;
  606. $p11x17= \%__p11x17_hash;
  607. bless $p11x17, PDF_pagesize;
  608. 1;
  609.